perm filename VICE[VV,BGB] blob sn#134377 filedate 1974-12-09 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE VICE
C00003 ENDMK
C⊗;
TITLE VICE
	FLAG: -1
	VICE: 0
SA:	SPCWAR 17,SW
	INCHRW
	CAIN " "↔SETZM VICE
	CAIN "O"↔SETOM VICE
	CAIE "C"↔JRST SA+1
	AOS VICE↔AOS VICE
	JRST SA+1

SW:	AOSG FLAG↔CONO 450,1		;SAFETY.
	ROTC =255
	SKIPG VICE↔CONO 450,1000	;OPEN
	SKIPL VICE↔CONO 450,2000	;CLOSE
	DISMIS
END SA